home *** CD-ROM | disk | FTP | other *** search
/ Cigar Companion Interactive / Cigar Companion Interactive.iso / pc / dial.dxr / 00001.ls next >
Encoding:
Text File  |  1997-08-26  |  2.3 KB  |  49 lines
  1. global gDialDisplayField, gULSPrite, gURSprite, gLRSprite, gLLSprite, gLeftBarSprite, gTopBarSprite, gRightBarSprite, gBottomBarSprite, gevalRect
  2.  
  3. on startMovie
  4.   initSprites()
  5. end
  6.  
  7. on initSprites
  8.   set gULSPrite to 8
  9.   set gURSprite to 9
  10.   set gLRSprite to 10
  11.   set gLLSprite to 11
  12.   set gLeftBarSprite to 5
  13.   set gTopBarSprite to 7
  14.   set gRightBarSprite to 4
  15.   set gBottomBarSprite to 6
  16.   set LeftButtonSprite to 1
  17.   set MiddleButtonSprite to 3
  18.   set RightButtonSprite to 2
  19.   set textSprite to 12
  20.   set numberSprite to 13
  21.   set numberOfSprite to 14
  22.   set the member of sprite textSprite to member gDialDisplayField
  23.   set winRect to the rect of getAt(the windowList, 1)
  24.   set the locH of sprite gURSprite to the width of winRect
  25.   set the locV of sprite gLLSprite to the height of winRect
  26.   set the loc of sprite gLRSprite to point(the width of winRect, the height of winRect)
  27.   set the rect of sprite gTopBarSprite to rect(0, 0, the width of winRect, the height of sprite gTopBarSprite)
  28.   set the rect of sprite gBottomBarSprite to rect(0, the height of winRect - the height of sprite gBottomBarSprite, the width of winRect, the height of winRect)
  29.   set the rect of sprite gLeftBarSprite to rect(0, 0, the width of sprite gLeftBarSprite, the height of winRect)
  30.   set the rect of sprite gRightBarSprite to rect(the width of winRect - the width of sprite gRightBarSprite, 0, the width of winRect, the height of winRect)
  31.   set myCenterHPoint to the width of winRect / 2
  32.   set myVerButPoint to the height of winRect - 40
  33.   set the loc of sprite MiddleButtonSprite to point(myCenterHPoint, myVerButPoint)
  34.   set myTall to myVerButPoint - the height of sprite RightButtonSprite
  35.   if gDialDisplayField = "shopping promt" then
  36.     set the loc of sprite numberSprite to point(myCenterHPoint + 10, myTall)
  37.     set the loc of sprite numberOfSprite to point(myCenterHPoint - the width of sprite numberOfSprite, myTall - 7)
  38.   else
  39.     set the loc of sprite numberSprite to point(-2000, -2000)
  40.     set the loc of sprite numberOfSprite to point(-2000, -2000)
  41.   end if
  42.   set the loc of sprite LeftButtonSprite to point(myCenterHPoint / 2, myVerButPoint)
  43.   set the loc of sprite RightButtonSprite to point((myCenterHPoint / 2) + myCenterHPoint, myVerButPoint)
  44.   repeat with spriteCount = 4 to 11
  45.     set the blend of sprite spriteCount to 100
  46.   end repeat
  47.   updateStage()
  48. end
  49.